home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00226_Script_GESTION_BANDEAU_ZAPETTE < prev    next >
Text File  |  2004-12-05  |  1KB  |  40 lines

  1. global gL_Zap,gJLM_W
  2. ----------------------
  3. on mouseEnter
  4.   KURSOR("CURSEUR_DRAG1")
  5. end
  6. -----------------------
  7. on mouseWithin
  8.   KURSOR("CURSEUR_DRAG1")
  9. end
  10. -----------------------
  11. on mouseDown
  12.   if the pauseState then exit
  13.   KURSOR("CURSEUR_DRAG2")
  14.   gJLM_W = 1
  15.   x0 = the stageLeft
  16.   y0 = the stageTop
  17.  -- gL_Zap[1].modal = 1
  18.   gL_Zap[12] = 1-- on met α 1 le flag qui tΘmoigne que le mode de la fenΩtre zapette est α 1(blocage de l'interactivitΘ de la scΦne)
  19.   gL_Zap[13] = the mouseLoc -- on stocke
  20. end
  21. ---------------------
  22. on mouseUp
  23.   if the pauseState then exit
  24.   KURSOR("CURSEUR_DRAG1")
  25.   gL_Zap[12] = 0-- on met α 0 le flag qui tΘmoigne que le mode de la fenΩtre zapette est α 0(dΘblocage de l'interactivitΘ de la scΦne)
  26.   gL_Zap[6] = gL_Zap[1].rect
  27.   gJLM_W = 0
  28. end
  29. ----------------------
  30. on mouseUpOutside
  31.   if the pauseState then exit
  32.   cursor -1
  33.   gL_Zap[12] = 0-- on met α 0 le flag qui tΘmoigne que le mode de la fenΩtre zapette est α 0(dΘblocage de l'interactivitΘ de la scΦne)
  34.   gJLM_W = 0
  35. end
  36. ----------------------
  37. on mouseLeave
  38.   cursor -1
  39. end
  40. ---------------